library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_16.5.R")
source("code/declarations/declaration_16.6.R")

diagnosis_16.5 <-
  declaration_16.6 |>
  redesign(bandwidth = seq(from = 0.05, to = 0.5, by = 0.05)) |>
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_16.5,
          file = "diagnosis_objects/diagnosis_16.5.rds")
